10 -WAIT      LDX $028D ; SHIFT-REGISTER
20 -          DEX       ; =0, WENN SHIFT
30 -          BEQ WAIT  ; WARTEN, WENN SHIFT
40 -          TAX       ; STATUS WIEDERHERSTELLEN
50 -          JMP $A71A ; ZUR LIST-ROUTINE